• Geospatial: when your data contains geographical coordinates of interest
• Trends, clusters, and patterns can be found in spatial data analysis leading to a greater understanding of current events and ability to predict future events

ggplot(data = NULL, mapping = aes(), ..., environment = parent.frame())

• data: Default dataset to use for plot. If not already a data.frame, will be converted to one by fortify. If not specified, must be suppled in each layer added to the plot.
• mapping: Default list of aesthetic mappings to use for plot. If not specified, must be suppled in each layer added to the plot.
• …: Other arguments passed on to methods. Not currently used.
• environment: If an variable defined in the aesthetic mapping is not found in the data, ggplot will look for it in this environment. It defaults to using the environment in which ggplot() is called.

geom_polygon(mapping = NULL, data = NULL, stat = "identity",
  position = "identity", ..., na.rm = FALSE, show.legend = NA,
  inherit.aes = TRUE)

• mapping: Set of aesthetic mappings created by aes or aes_. If specified and inherit.aes = TRUE (the default), it is combined with the default mapping at the top level of the plot. You must supply mapping if there is no plot mapping.
• data: The data to be displayed in this layer. There are three options:
  • If NULL, the default, the data is inherited from the plot data as specified in the call to ggplot.
  • A data.frame, or other object, will override the plot data. All objects will be fortified to produce a data frame.
  • A function will be called with a single argument, the plot data. The return value must be a data.frame., and will be used as the layer data.
• stat: The statistical transformation to use on the data for this layer, as a string.
• position: Position adjustment, either as a string, or the result of a call to a position adjustment function.
• …: other arguments passed on to layer. These are often aesthetics, used to set an aesthetic to a fixed value, like color = "red" or size = 3. They may also be parameters to the paired geom/stat.
• na.rm: If FALSE, the default, missing values are removed with a warning. If TRUE, missing values are silently removed.
• show.legend: logical. Should this layer be included in the legends? NA, the default, includes if any aesthetics are mapped. FALSE never includes, and TRUE always includes.
• inherit.aes: If FALSE, overrides the default aesthetics, rather than combining with them. This is most useful for helper functions that define both data and aesthetics and shouldn't inherit behaviour from the default plot specification, e.g. borders.

• geom_polygon understands the following aesthetics:
  • x: length-wise coordinates of visualization produced
  • y: height-wise coordinates of visualization produced
  • alpha: transparency of shape produced
  • colour: color of shape or borders
  • fill: what data/color makes up the "fill" of the objects produced
  • group: arrangement of the shapes
  • linetype: type of lines used in drawing for example solid, dashed, dotted, etc.
  • size: thickness of shape

• geom_polygon understands the following aesthetics:
  • x: length-wise coordinates of visualization produced
  • y: height-wise coordinates of visualization produced
  • alpha: transparency of shape produced
  • colour: color of point or borders
  • fill: what data/color makes up the "fill" of the objects produced
  • group : arrangement of the points
  • size: thickness of shape
  • shape: the corresponding point produced (ie. closed circle, triangle, square, etc.)
  • stroke: modifies the width of the boroder

• https://census.gov
• This dataset reports the populations for U.S. states according to the U.S. Census (2013)
• Data cleaning
• Use a dataset within {maps} package for geographical coordinates to use in the mapping of the United States in ggplot2's plotting grid.

setwd("C:/Users/Tom Kennon/Documents/UCONN/STAT 6494/Presentation")

library(maps)
library(ggplot2)

states <- map_data("state")

pop <- read.csv("state populations.csv")
colnames(states)[5] <- "State"
pop$State <- sapply(pop$State, tolower)
pop$Population <- as.numeric(pop$Population)

• Merge the data States graphical coordinates with the populations database

choro <- merge(states, pop, sort=FALSE, by="State")
choro <- choro[order(choro$order),]

ggplot(choro, aes(long, lat))

ggplot(choro, aes(long, lat)) +
  geom_polygon(aes(group = group, fill=Population))

ggplot(choro, aes(long, lat)) +
  geom_polygon(aes(group = group, fill=Population)) +
  scale_fill_gradientn(name="Population Size",
      colours = c("magenta1", "magenta4"))

ggplot(choro, aes(long, lat)) +
  geom_polygon(aes(group = group, fill=Population)) +
  scale_fill_gradientn(name="Population Size",
      colours = c("magenta1", "magenta4")) +
  labs(title = "Geographical Heat Map of Population Size",
       x = "Longitude", y = "Latitude")

ggplot(choro, aes(long, lat)) +
  geom_polygon(aes(group = group, fill=Population)) +
  scale_fill_gradientn(name="Population Size",
      colours = c("magenta1", "magenta4")) +
  labs(title = "Geographical Heat Map of Population Size",
       x = "Longitude", y = "Latitude") +
  coord_map("albers", at0 = 45.5, lat1=29.5)

ggmap(ggmap, extent = "panel", base_layer, maprange = FALSE,
  legend = "right", padding = 0.02, darken = c(0, "black"), ...)

• ggmap: an object of class ggmap (from function get_map)
• extent: how much of the plot should the map take up? "normal", "device", or "panel" (default)
• base_layer: a ggplot(aes(…), …) call
• maprange: logical for use with base_layer; should the map define the x and y limits?
• legend: "left", "right" (default), "bottom", "top", "bottomleft", "bottomright", "topleft", "topright", "none" (used with extent = "device")
• padding: distance from legend to corner of the plot (used with legend, formerly b)
• darken: vector of the form c(number, color), where number is in [0, 1] and color is a character string indicating the color of the darken. 0 indicates no darkening, 1 indicates a black-out.

• https://www.kaggle.com/nycopendata/high-schools
• This dataset reports the average SAT score for all 2014-2015 accredited high schools in New York City, New York U.S.
• Variables of Interest: Latitudes, Longitudes, and SAT Scores with corresponding
• Data cleaning
• ~375 different High Schools

sat <- read.csv("scores.csv")
sat <- sat[is.na(sat$Average.Score..SAT.Math.) == FALSE,]
sat <- sat[is.na(sat$Average.Score..SAT.Reading.) == FALSE,]
sat <- sat[is.na(sat$Average.Score..SAT.Writing.) == FALSE,]
sat$Raw.Score <- sat$Average.Score..SAT.Math. +
  sat$Average.Score..SAT.Reading. + sat$Average.Score..SAT.Writing.

library(maps)
library(ggplot2)
library(ggmap)
library(leaflet)

• maps
• ggplot2
• ggmap
• leaflet

nyc <- get_map(location = c(lat = 40.71, lon = -74.00), zoom = 11)

## note : locations should be specified in the lon/lat format, not lat/lon.

## Map from URL : http://maps.googleapis.com/maps/api/staticmap?center=40.71,-74&zoom=11&size=640x640&scale=2&maptype=terrain&language=en-EN&sensor=false

nyc_sat <- ggmap(nyc)

nyc_sat

nyc_sat <- ggmap(nyc) +
  geom_point(data = sat, aes(x = Longitude, y = Latitude)) 

nyc_sat

nyc_sat <- ggmap(nyc) +
  geom_point(data = sat, aes(x = Longitude, y = Latitude,
      size=Raw.Score))

nyc_sat

nyc_sat <- ggmap(nyc) +
  geom_point(data = sat, aes(x = Longitude, y = Latitude,
        size=Raw.Score)) +
  scale_size(range = c(0, 5))

nyc_sat

nyc_sat <- ggmap(nyc) +
  geom_point(data = sat, aes(x = Longitude, y = Latitude,
      size=Raw.Score,
      alpha=0.10),shape=21) +
  scale_size(range = c(0, 5))

nyc_sat

nyc_sat <- ggmap(nyc) +
  geom_point(data = sat, aes(x = Longitude, y = Latitude,
      size=Raw.Score, alpha=0.10),shape=21) +
  scale_size(range = c(0, 5)) +
  scale_alpha(guide = 'none') +
  labs(title = "SAT Scores in New York City High Schools",
       x = "Longitude", y = "Latitude", size = "SAT Score")

nyc_sat

m <- leaflet(sat) %>% addTiles()

m <- leaflet(sat) %>% addTiles()
m %>% addCircleMarkers(lat = ~Latitude, lng = ~Longitude,
        fill = TRUE, radius = ~(1/150 * Raw.Score), color="black")

m <- leaflet(sat) %>% addTiles()
m %>% addCircleMarkers(lat = ~Latitude, lng = ~Longitude,
        fill = TRUE, radius = ~(1/150 * Raw.Score), color="black",
        clusterOptions = markerClusterOptions())

• https://www.rstudio.com/wp-content/uploads/2015/03/ggplot2-cheatsheet.pdf
• https://www.nceas.ucsb.edu/~frazier/RSpatialGuides/ggmap/ggmapCheatsheet.pdf
• https://paulvanderlaken.files.wordpress.com/2017/08/leaflet-cheat-sheet.pdf
• http://spatial.ly/r/